home *** CD-ROM | disk | FTP | other *** search
/ 202 Game Collection / 202 Game Collection.iso / Ultimate / games / Braid.dxr / 00057_deck.ls < prev    next >
Encoding:
Text File  |  2001-10-16  |  460 b   |  24 lines
  1. property spriteNum
  2. global deck, discard
  3.  
  4. on beginSprite me
  5.   sprite(spriteNum).blend = 0
  6. end
  7.  
  8. on mouseDown me
  9.   if count(deck) > 0 then
  10.     sprite(51).memberNum = deck[1]
  11.     sprite(51).visible = 1
  12.     puppetSound("deal1")
  13.     append(discard, deck[1])
  14.     deleteAt(deck, 1)
  15.   else
  16.     repeat with blah = 1 to count(discard)
  17.       append(deck, discard[blah])
  18.     end repeat
  19.     discard = []
  20.     sprite(51).visible = 0
  21.     sprite(51).memberNum = 53
  22.   end if
  23. end
  24.